home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games 1996 July / Amiga Games 1996 #7.iso / leser-forum / tobiasfranke / lap.amos / lap.amosSourceCode
AMOS Source Code  |  1978-02-12  |  25KB  |  1,350 lines
  1. Screen Open 0,320,200,16,Lowres : Curs Off 
  2. Paper 0
  3. Cls 
  4. RISIKO=1
  5. REPERATUREN=1
  6. Load Iff "IFF/F1_1",1
  7. Wait 70
  8. Writing 2
  9. Pen 4
  10. Locate 20,2 : Print "AUSWAHLMEN�"
  11. Locate 14,6 : Print "A = Spiel Start"
  12. Locate 14,7 : Print "B = Anleitung  "
  13. Do 
  14. X$=Inkey$
  15. If X$="a" Then Goto 100
  16. If X$="b" Then Run "Anleitung.AMOS"
  17. Loop 
  18. 100
  19. VERM�GEN=1000000
  20. Screen Close 1
  21. Pen 3
  22. Locate 2,15 : Print "Bitte Name eingeben:"
  23. Curs On 
  24. Pen 4
  25. Locate 2,16 : Input NAMEA$
  26. Cls 
  27. Pen 3
  28. Locate 2,15 : Print "Bitte Team-Name eingeben:"
  29. Pen 4
  30. Input TEAMA$
  31. Cls 
  32. 110
  33. VERM�GEN=VERM�GEN-AUSGABEN
  34. AUSGABEN=0
  35. If VERM�GEN<0 Then Load Iff "IFF/F1_8" : Wait 400 : End 
  36. Load Iff "IFF/F1_2",0
  37. Writing 2
  38. Locate 2,2 : Print "                                  "
  39. Locate 2,2 : Print "Bitte entsprechende Taste dr�cken."
  40. Locate 2,27 : Print "             "
  41. Locate 2,27 : Print "   Verm�gen:         "
  42. Locate 15,27 : Print VERM�GEN
  43. 111
  44. Do 
  45. X$=Inkey$
  46. If X$="1" Then 400
  47. If X$="2" Then 1100
  48. If X$="3" Then 2100
  49. If X$="4" Then 3100
  50. If X$="5" Then 6000
  51. If X$="6" Then 112
  52. Loop 
  53. 112 If AUTO=0 Then Goto 111
  54. If FAHRER=0 Then 111
  55. Goto 4000
  56. 200
  57. 300
  58. 400
  59. Rem             A u t o s  
  60. Rem
  61. Rem
  62. Rem
  63. Load Iff "IFF/F1_3",0
  64. Do 
  65. X$=Inkey$
  66. Paper 23
  67. If X$="1" Then If AUTO=1 Then AUT Else Gosub 500
  68. If X$="2" Then If AUTO=2 Then AUT Else Gosub 600
  69. If X$="3" Then If AUTO=3 Then AUT Else Gosub 700
  70. If X$="4" Then If AUTO=4 Then AUT Else Gosub 800
  71. If X$="5" Then If AUTO=5 Then AUT Else Gosub 900
  72. If X$="6" Then If AUTO=6 Then AUT Else Gosub 1000
  73. If X$="7" Then Goto 110
  74. Loop 
  75. Procedure AUT
  76. Locate 1,30 : Print "   Dieses Auto besitzen Sie bereits!" : Wait 100 : Locate 1,30 : Print "                                    "
  77. End Proc
  78. End 
  79. Rem
  80. Rem           A u t o s   e n d  e 
  81. Rem
  82. Rem
  83. Rem
  84. Rem
  85. Rem
  86. 500
  87. Rem                A u t o   1   
  88. Paper 8
  89. Pen 3
  90. Wind Open 1,100,50,17,17,16
  91. Border 15,8,3
  92. Print "Wagen Nr.1:"
  93. Print "-----------"
  94. Print ""
  95. Pen 5
  96. Print "Tank "
  97. Pen 0
  98. Print "Schlecht"
  99. Pen 5
  100. Print "Motor"
  101. Pen 0
  102. Print "Langsam"
  103. Pen 5
  104. Print "Aerodynamik"
  105. Pen 0
  106. Print "Schlecht"
  107. Pen 5
  108. Print "Preis:"
  109. Pen 0
  110. Print "300�000"
  111. Print ""
  112. Pen 3
  113. Print "Kaufen? (J/N)"
  114. Do 
  115. X$=Inkey$
  116. If X$="j" Then AUTO=1 : AUSGABEN=300000 : Goto 110
  117. If X$="n" Then Goto 510
  118. Loop 
  119. 510
  120. Wind Close 
  121. Load Iff "IFF/F1_3",0
  122. Return 
  123. 600
  124. Rem                A u t o   2   
  125. Paper 8
  126. Pen 3
  127. Wind Open 1,100,50,17,17,16
  128. Border 15,8,3
  129. Print "Wagen Nr.2:"
  130. Print "-----------"
  131. Print ""
  132. Pen 5
  133. Print "Tank "
  134. Pen 0
  135. Print "Schlecht"
  136. Pen 5
  137. Print "Motor"
  138. Pen 0
  139. Print "Langsam"
  140. Pen 5
  141. Print "Aerodynamik"
  142. Pen 0
  143. Print "Mittel"
  144. Pen 5
  145. Print "Preis:"
  146. Pen 0
  147. Print "500�000"
  148. Print ""
  149. Pen 3
  150. Print "Kaufen? (J/N)"
  151. Do 
  152. X$=Inkey$
  153. If X$="j" Then AUTO=2 : AUSGABEN=500000 : Goto 110
  154. If X$="n" Then Goto 610
  155. Loop 
  156. 610
  157. Wind Close 
  158. Load Iff "IFF/F1_3",0
  159. Return 
  160. 700
  161. Rem                A u t o   3   
  162. Paper 8
  163. Pen 3
  164. Wind Open 1,100,50,17,17,16
  165. Border 15,8,3
  166. Print "Wagen Nr.3:"
  167. Print "-----------"
  168. Print ""
  169. Pen 5
  170. Print "Tank "
  171. Pen 0
  172. Print "Mittel"
  173. Pen 5
  174. Print "Motor"
  175. Pen 0
  176. Print "Langsam"
  177. Pen 5
  178. Print "Aerodynamik"
  179. Pen 0
  180. Print "Mittel"
  181. Pen 5
  182. Print "Preis:"
  183. Pen 0
  184. Print "700�000"
  185. Print ""
  186. Pen 3
  187. Print "Kaufen? (J/N)"
  188. Do 
  189. X$=Inkey$
  190. If X$="j" Then AUTO=7 : AUSGABEN=700000 : Goto 110
  191. If X$="n" Then Goto 710
  192. Loop 
  193. 710
  194. Wind Close 
  195. Load Iff "IFF/F1_3",0
  196. Return 
  197. 800
  198. Rem                A u t o   4   
  199. Paper 8
  200. Pen 3
  201. Wind Open 1,100,50,17,17,16
  202. Border 15,8,3
  203. Print "Wagen Nr.4:"
  204. Print "-----------"
  205. Print ""
  206. Pen 5
  207. Print "Tank "
  208. Pen 0
  209. Print "Mittel"
  210. Pen 5
  211. Print "Motor"
  212. Pen 0
  213. Print "Mittel"
  214. Pen 5
  215. Print "Aerodynamik"
  216. Pen 0
  217. Print "Mittel"
  218. Pen 5
  219. Print "Preis:"
  220. Pen 0
  221. Print "1�000�000"
  222. Print ""
  223. Pen 3
  224. Print "Kaufen? (J/N)"
  225. Do 
  226. X$=Inkey$
  227. If X$="j" Then AUTO=4 : AUSGABEN=1000000 : Goto 110
  228. If X$="n" Then Goto 810
  229. Loop 
  230. 810
  231. Wind Close 
  232. Load Iff "IFF/F1_3",0
  233. Return 
  234. 900
  235. Rem                A u t o   5   
  236. Paper 8
  237. Pen 3
  238. Wind Open 1,100,50,17,17,16
  239. Border 15,8,3
  240. Print "Wagen Nr.5:"
  241. Print "-----------"
  242. Print ""
  243. Pen 5
  244. Print "Tank "
  245. Pen 0
  246. Print "Mittel"
  247. Pen 5
  248. Print "Motor"
  249. Pen 0
  250. Print "Gut"
  251. Pen 5
  252. Print "Aerodynamik"
  253. Pen 0
  254. Print "Gut"
  255. Pen 5
  256. Print "Preis:"
  257. Pen 0
  258. Print "1�200�000"
  259. Print ""
  260. Pen 3
  261. Print "Kaufen? (J/N)"
  262. Do 
  263. X$=Inkey$
  264. If X$="j" Then AUTO=5 : AUSGABEN=1200000 : Goto 110
  265. If X$="n" Then Goto 910
  266. Loop 
  267. 910
  268. Wind Close 
  269. Load Iff "IFF/F1_3",0
  270. Return 
  271. 1000
  272. Rem                A u t o   6   
  273. Paper 8
  274. Pen 3
  275. Wind Open 1,100,50,17,17,16
  276. Border 15,8,3
  277. Print "Wagen Nr.6:"
  278. Print "-----------"
  279. Print ""
  280. Pen 5
  281. Print "Tank "
  282. Pen 0
  283. Print "Gut"
  284. Pen 5
  285. Print "Motor"
  286. Pen 0
  287. Print "Gut"
  288. Pen 5
  289. Print "Aerodynamik"
  290. Pen 0
  291. Print "Gut"
  292. Pen 5
  293. Print "Preis:"
  294. Pen 0
  295. Print "1�700�000"
  296. Print ""
  297. Pen 3
  298. Print "Kaufen? (J/N)"
  299. Do 
  300. X$=Inkey$
  301. If X$="j" Then AUTO=6 : AUSGABEN=1700000 : Goto 110
  302. If X$="n" Then Goto 1010
  303. Loop 
  304. 1010
  305. Wind Close 
  306. Load Iff "IFF/F1_3",0
  307. Return 
  308. 1100
  309. Load Iff "IFF/F1_4",0
  310. 1110
  311. Locate 6,2 : Print "Bodo Bumm"
  312. Locate 6,10 : Print "Karl Chrash"
  313. Locate 6,19 : Print "Kai Kamikaze"
  314. Locate 26,2 : Print "Pit Pitstop "
  315. Locate 26,10 : Print "Freddi First"
  316. Locate 26,19 : Print "Reni Raser"
  317. Do 
  318. X$=Inkey$
  319. If X$="1" Then If FAHRER=1 Then FAHRE Else Gosub 1200 : Goto 1110
  320. If X$="2" Then If FAHRER=2 Then FAHRE Else Gosub 1300 : Goto 1110
  321. If X$="3" Then If FAHRER=3 Then FAHRE Else Gosub 1400 : Goto 1110
  322. If X$="4" Then If FAHRER=4 Then FAHRE Else Gosub 1500 : Goto 1110
  323. If X$="5" Then If FAHRER=5 Then FAHRE Else Gosub 1600 : Goto 1110
  324. If X$="6" Then If FAHRER=6 Then FAHRE Else Gosub 1700 : Goto 1110
  325. If X$="7" Then 110
  326. Loop 
  327. Procedure FAHRE
  328. Paper 23
  329. Locate 1,30 : Print "Dieser Fahrer ist bereits bei ihnen! "
  330. Wait 100
  331. Locate 1,30 : Print "                                     "
  332. End Proc
  333. Rem
  334. Rem
  335. Rem              F a h r e r a u s w a h l   e n d e 
  336. Rem
  337. Rem
  338. Rem
  339. Rem
  340. 1200
  341. Rem                F a h r e r   1 
  342. Paper 8
  343. Pen 3
  344. Wind Open 1,80,40,17,20,16
  345. Border 15,8,3
  346. Print "Bodo Bumm"
  347. Print "-----------"
  348. Print ""
  349. Pen 5
  350. Print "Risiko"
  351. Pen 0
  352. Print "Schlecht"
  353. Pen 5
  354. Print "Sicherheit"
  355. Pen 0
  356. Print "Schlecht"
  357. Pen 5
  358. Print "Intilligenz:"
  359. Pen 0
  360. Print "Wenig"
  361. Pen 5
  362. Print "Lohn:"
  363. Pen 0
  364. Print "100�000"
  365. Print ""
  366. Pen 3
  367. Print "Anstellen?"
  368. Print "  (J/N)"
  369. Do 
  370. X$=Inkey$
  371. If X$="j" Then FAHRER=1 : AUSGABEN=100000 : Goto 110
  372. If X$="n" Then Goto 1210
  373. Loop 
  374. 1210
  375. Wind Close 
  376. Load Iff "IFF/F1_4",0
  377. Return 
  378. 1300
  379. Rem                F a h r e r   2 
  380. Paper 8
  381. Pen 3
  382. Wind Open 1,100,50,17,20,16
  383. Border 15,8,3
  384. Print "Karl Chrash"
  385. Print "-----------"
  386. Print ""
  387. Pen 5
  388. Print "Risiko"
  389. Pen 0
  390. Print "Mittel"
  391. Pen 5
  392. Print "Sicherheit"
  393. Pen 0
  394. Print "Schlecht"
  395. Pen 5
  396. Print "Intilligenz"
  397. Pen 0
  398. Print "Wenig"
  399. Pen 5
  400. Print "Lohn:"
  401. Pen 0
  402. Print "150�000"
  403. Print ""
  404. Pen 3
  405. Print "Anstellen?"
  406. Print "  (J/N)"
  407. Do 
  408. X$=Inkey$
  409. If X$="j" Then FAHRER=2 : AUSGABEN=150000 : Goto 110
  410. If X$="n" Then Goto 1310
  411. Loop 
  412. 1310
  413. Wind Close 
  414. Load Iff "IFF/F1_4",0
  415. Return 
  416. 1400
  417. Rem                F a h r e r   3 
  418. Paper 8
  419. Pen 3
  420. Wind Open 1,100,50,17,20,16
  421. Border 15,8,3
  422. Print "Kai Kamikaze"
  423. Print "----------- "
  424. Print ""
  425. Pen 5
  426. Print "Risiko"
  427. Pen 0
  428. Print "Mittel"
  429. Pen 5
  430. Print "Sicherheit"
  431. Pen 0
  432. Print "Mittel"
  433. Pen 5
  434. Print "Intilligenz"
  435. Pen 0
  436. Print "Mittel"
  437. Pen 5
  438. Print "Lohn:"
  439. Pen 0
  440. Print "200�000"
  441. Print ""
  442. Pen 3
  443. Print "Anstellen?"
  444. Print "  (J/N)"
  445. Do 
  446. X$=Inkey$
  447. If X$="j" Then FAHRER=3 : AUSGABEN=200000 : Goto 110
  448. If X$="n" Then Goto 1410
  449. Loop 
  450. 1410
  451. Wind Close 
  452. Load Iff "IFF/F1_4",0
  453. Return 
  454. 1500
  455. Rem                F a h r e r   4 
  456. Paper 8
  457. Pen 3
  458. Wind Open 1,100,50,17,20,16
  459. Border 15,8,3
  460. Print "Pit Pitstop"
  461. Print "-----------"
  462. Print ""
  463. Pen 5
  464. Print "Risiko"
  465. Pen 0
  466. Print "Mittel"
  467. Pen 5
  468. Print "Sicherheit"
  469. Pen 0
  470. Print "Mittel"
  471. Pen 5
  472. Print "Intilligenz"
  473. Pen 0
  474. Print "Gut"
  475. Pen 5
  476. Print "Lohn:"
  477. Pen 0
  478. Print "250�000"
  479. Print ""
  480. Pen 3
  481. Print "Anstellen?"
  482. Print "  (J/N)"
  483. Do 
  484. X$=Inkey$
  485. If X$="j" Then FAHRER=4 : AUSGABEN=250000 : Goto 110
  486. If X$="n" Then Goto 1510
  487. Loop 
  488. 1510
  489. Wind Close 
  490. Load Iff "IFF/F1_4",0
  491. Return 
  492. 1600
  493. Rem                F a h r e r   5 
  494. Paper 8
  495. Pen 3
  496. Wind Open 1,100,50,17,20,16
  497. Border 15,8,3
  498. Print "Freddi First"
  499. Print "-----------"
  500. Print ""
  501. Pen 5
  502. Print "Risiko"
  503. Pen 0
  504. Print "Mittel"
  505. Pen 5
  506. Print "Sicherheit"
  507. Pen 0
  508. Print "Gut"
  509. Pen 5
  510. Print "Intilligenz"
  511. Pen 0
  512. Print "Gut"
  513. Pen 5
  514. Print "Lohn:"
  515. Pen 0
  516. Print "300�000"
  517. Print ""
  518. Pen 3
  519. Print "Anstellen?"
  520. Print "  (J/N)"
  521. Do 
  522. X$=Inkey$
  523. If X$="j" Then FAHRER=5 : AUSGABEN=300000 : Goto 110
  524. If X$="n" Then Goto 1610
  525. Loop 
  526. 1610
  527. Wind Close 
  528. Load Iff "IFF/F1_4",0
  529. Return 
  530. 1700
  531. Rem                F a h r e r   6 
  532. Paper 8
  533. Pen 3
  534. Wind Open 1,100,50,17,20,16
  535. Border 15,8,3
  536. Print "Reni Raser"
  537. Print "-----------"
  538. Print ""
  539. Pen 5
  540. Print "Risiko"
  541. Pen 0
  542. Print "Gut"
  543. Pen 5
  544. Print "Sicherheit"
  545. Pen 0
  546. Print "Gut"
  547. Pen 5
  548. Print "Intilligenz"
  549. Pen 0
  550. Print "Gut"
  551. Pen 5
  552. Print "Lohn:"
  553. Pen 0
  554. Print "350�000"
  555. Print ""
  556. Pen 3
  557. Print "Anstellen?"
  558. Print "  (J/N)"
  559. Do 
  560. X$=Inkey$
  561. If X$="j" Then FAHRER=6 : AUSGABEN=350000 : Goto 110
  562. If X$="n" Then Goto 1710
  563. Loop 
  564. 1710
  565. Wind Close 
  566. Load Iff "IFF/F1_4",0
  567. Return 
  568. 2100
  569. Rem
  570. Rem
  571. Rem
  572. Rem
  573. Rem
  574. Rem                       T E A M S
  575. Rem
  576. Rem
  577. Rem
  578. Rem
  579. Load Iff "IFF/F1_4",0
  580. 2110
  581. Locate 6,2 : Print "Team A"
  582. Locate 6,10 : Print "Team B"
  583. Locate 6,19 : Print "Team C"
  584. Locate 26,2 : Print "Team D"
  585. Locate 26,10 : Print "Team E"
  586. Locate 26,19 : Print "Team F"
  587. Do 
  588. X$=Inkey$
  589. If X$="1" Then If TEAM=1 Then TEA Else Gosub 2300 : Goto 2110
  590. If X$="2" Then If TEAM=2 Then TEA Else Gosub 2400 : Goto 2110
  591. If X$="3" Then If TEAM=3 Then TEA Else Gosub 2500 : Goto 2110
  592. If X$="4" Then If TEAM=4 Then TEA Else Gosub 2600 : Goto 2110
  593. If X$="5" Then If TEAM=5 Then TEA Else Gosub 2700 : Goto 2110
  594. If X$="6" Then If TEAM=6 Then TEA Else Gosub 2800 : Goto 2110
  595. If X$="7" Then 110
  596. Loop 
  597. Procedure TEA
  598. Paper 23
  599. Locate 1,30 : Print "Dieses Team ist bereits bei ihnen!"
  600. Wait 100
  601. Locate 1,30 : Print "                                  "
  602. End Proc
  603. Rem
  604. Rem
  605. Rem              F a h r e r a u s w a h l   e n d e 
  606. Rem
  607. Rem
  608. Rem
  609. Rem
  610. Rem
  611. Rem
  612. Rem                       T E A M S  
  613. Rem
  614. Rem
  615. Rem
  616. Rem
  617. 2300
  618. Paper 8
  619. Pen 3
  620. Wind Open 1,100,50,17,20,16
  621. Border 15,8,3
  622. Print "Team A"
  623. Print "-----------"
  624. Print ""
  625. Pen 5
  626. Print "Pitstops"
  627. Pen 0
  628. Print "Langsam"
  629. Pen 5
  630. Print "Reperatur"
  631. Pen 0
  632. Print "Schlampig"
  633. Pen 5
  634. Print "Erfahrung"
  635. Pen 0
  636. Print "Wenig"
  637. Pen 5
  638. Print "Lohn:"
  639. Pen 0
  640. Print "400�000"
  641. Print ""
  642. Pen 3
  643. Print "Anstellen?"
  644. Print "  (J/N)"
  645. Do 
  646. X$=Inkey$
  647. If X$="j" Then TEAM=1 : AUSGABEN=400000 : Goto 110
  648. If X$="n" Then Goto 2310
  649. Loop 
  650. 2310
  651. Wind Close 
  652. Load Iff "IFF/F1_4",0
  653. Return 
  654. 2400
  655. Paper 8
  656. Pen 3
  657. Wind Open 1,100,50,17,20,16
  658. Border 15,8,3
  659. Print "Team B"
  660. Print "-----------"
  661. Print ""
  662. Pen 5
  663. Print "Pitstops"
  664. Pen 0
  665. Print "Langsam"
  666. Pen 5
  667. Print "Reperatur"
  668. Pen 0
  669. Print "Schlampig"
  670. Pen 5
  671. Print "Erfahrung"
  672. Pen 0
  673. Print "Mittel"
  674. Pen 5
  675. Print "Lohn:"
  676. Pen 0
  677. Print "500�000"
  678. Print ""
  679. Pen 3
  680. Print "Anstellen?"
  681. Print "  (J/N)"
  682. Do 
  683. X$=Inkey$
  684. If X$="j" Then TEAM=2 : AUSGABEN=500000 : Goto 110
  685. If X$="n" Then Goto 2410
  686. Loop 
  687. 2410
  688. Wind Close 
  689. Load Iff "IFF/F1_4",0
  690. Return 
  691. 2500
  692. Paper 8
  693. Pen 3
  694. Wind Open 1,100,50,17,20,16
  695. Border 15,8,3
  696. Print "Team C"
  697. Print "-----------"
  698. Print ""
  699. Pen 5
  700. Print "Pitstops"
  701. Pen 0
  702. Print "Langsam"
  703. Pen 5
  704. Print "Reperatur"
  705. Pen 0
  706. Print "Geht so"
  707. Pen 5
  708. Print "Erfahrung"
  709. Pen 0
  710. Print "Mittel"
  711. Pen 5
  712. Print "Lohn:"
  713. Pen 0
  714. Print "600�000"
  715. Print ""
  716. Pen 3
  717. Print "Anstellen?"
  718. Print "  (J/N)"
  719. Do 
  720. X$=Inkey$
  721. If X$="j" Then TEAM=3 : AUSGABEN=600000 : Goto 110
  722. If X$="n" Then Goto 2510
  723. Loop 
  724. 2510
  725. Wind Close 
  726. Load Iff "IFF/F1_4",0
  727. Return 
  728. 2600
  729. Paper 8
  730. Pen 3
  731. Wind Open 1,100,50,17,20,16
  732. Border 15,8,3
  733. Print "Team D"
  734. Print "-----------"
  735. Print ""
  736. Pen 5
  737. Print "Pitstops"
  738. Pen 0
  739. Print "Mittel"
  740. Pen 5
  741. Print "Reperatur"
  742. Pen 0
  743. Print "Geht so"
  744. Pen 5
  745. Print "Erfahrung"
  746. Pen 0
  747. Print "Viel"
  748. Pen 5
  749. Print "Lohn:"
  750. Pen 0
  751. Print "700�000"
  752. Print ""
  753. Pen 3
  754. Print "Anstellen?"
  755. Print "  (J/N)"
  756. Do 
  757. X$=Inkey$
  758. If X$="j" Then TEAM=4 : AUSGABEN=700000 : Goto 110
  759. If X$="n" Then Goto 2610
  760. Loop 
  761. 2610
  762. Wind Close 
  763. Load Iff "IFF/F1_4",0
  764. Return 
  765. 2700
  766. Paper 8
  767. Pen 3
  768. Wind Open 1,100,50,17,20,16
  769. Border 15,8,3
  770. Print "Team E"
  771. Print "-----------"
  772. Print ""
  773. Pen 5
  774. Print "Pitstops"
  775. Pen 0
  776. Print "Mittel"
  777. Pen 5
  778. Print "Reperatur"
  779. Pen 0
  780. Print "Super"
  781. Pen 5
  782. Print "Erfahrung"
  783. Pen 0
  784. Print "Viel"
  785. Pen 5
  786. Print "Lohn:"
  787. Pen 0
  788. Print "800�000"
  789. Print ""
  790. Pen 3
  791. Print "Anstellen?"
  792. Print "  (J/N)"
  793. Do 
  794. X$=Inkey$
  795. If X$="j" Then TEAM=5 : AUSGABEN=800000 : Goto 110
  796. If X$="n" Then Goto 2710
  797. Loop 
  798. 2710
  799. Wind Close 
  800. Load Iff "IFF/F1_4",0
  801. Return 
  802. 2800
  803. Paper 8
  804. Pen 3
  805. Wind Open 1,100,50,17,20,16
  806. Border 15,8,3
  807. Print "Team F"
  808. Print "-----------"
  809. Print ""
  810. Pen 5
  811. Print "Pitstops"
  812. Pen 0
  813. Print "Schnell"
  814. Pen 5
  815. Print "Reperatur"
  816. Pen 0
  817. Print "Super"
  818. Pen 5
  819. Print "Erfahrung"
  820. Pen 0
  821. Print "Viel"
  822. Pen 5
  823. Print "Lohn:"
  824. Pen 0
  825. Print "900�000"
  826. Print ""
  827. Pen 3
  828. Print "Anstellen?"
  829. Print "  (J/N)"
  830. Do 
  831. X$=Inkey$
  832. If X$="j" Then TEAM=6 : AUSGABEN=900000 : Goto 110
  833. If X$="n" Then Goto 2810
  834. Loop 
  835. 2810
  836. Wind Close 
  837. Load Iff "IFF/F1_4",0
  838. Return 
  839. 3100
  840. Load Iff "IFF/F1_4",0
  841. 3110
  842. Locate 6,2 : Print "Set A"
  843. Locate 6,10 : Print "Set B"
  844. Locate 6,19 : Print "Set C"
  845. Locate 26,2 : Print "Set D "
  846. Locate 26,10 : Print "Set E"
  847. Locate 26,19 : Print "Set F"
  848. Do 
  849. X$=Inkey$
  850. If X$="1" Then If VERB=1 Then SET Else Gosub 3300 : Goto 3110
  851. If X$="2" Then If VERB=2 Then SET Else Gosub 3400 : Goto 3110
  852. If X$="3" Then If VERB=3 Then SET Else Gosub 3500 : Goto 3110
  853. If X$="4" Then If VERB=4 Then SET Else Gosub 3600 : Goto 3110
  854. If X$="5" Then If VERB=5 Then SET Else Gosub 3700 : Goto 3110
  855. If X$="6" Then If VERB=6 Then SET Else Gosub 3800 : Goto 3110
  856. If X$="7" Then 110
  857. Loop 
  858. Procedure SET
  859. Paper 23
  860. Locate 1,30 : Print "Dieses Set geh�rt bereits ihnen!"
  861. Wait 100
  862. Locate 1,30 : Print "                                "
  863. End Proc
  864. 3300
  865. Paper 8
  866. Pen 3
  867. Wind Open 1,100,50,17,20,16
  868. Border 15,8,3
  869. Print "Verbesserungs"
  870. Print "    Set A    "
  871. Print "-------------"
  872. Print ""
  873. Pen 5
  874. Print "Bestehend"
  875. Print "aus:"
  876. Pen 0
  877. Print "Bessere "
  878. Print "Karosserie"
  879. Print ""
  880. Pen 0
  881. Print ""
  882. Pen 5
  883. Print ""
  884. Pen 0
  885. Print ""
  886. Pen 5
  887. Print "Kosten:"
  888. Pen 0
  889. Print "100000"
  890. Print ""
  891. Pen 3
  892. Print " Kaufen?"
  893. Print "  (J/N)"
  894. Do 
  895. X$=Inkey$
  896. If X$="j" Then VERB=1 : AUSGABEN=100000 : Goto 110
  897. If X$="n" Then Goto 3310
  898. Loop 
  899. 3310
  900. Wind Close 
  901. Load Iff "IFF/F1_4",0
  902. Return 
  903. 3400
  904. Paper 8
  905. Pen 3
  906. Wind Open 1,100,50,17,20,16
  907. Border 15,8,3
  908. Print "Verbesserungs"
  909. Print "    Set B    "
  910. Print "-------------"
  911. Print ""
  912. Pen 5
  913. Print "Bestehend"
  914. Print "aus:"
  915. Pen 0
  916. Print "Bessere "
  917. Print "Karosserie,"
  918. Print "Neuartige"
  919. Print "Reifen"
  920. Pen 5
  921. Print ""
  922. Pen 0
  923. Print ""
  924. Pen 5
  925. Print "Kosten:"
  926. Pen 0
  927. Print "200000"
  928. Print ""
  929. Pen 3
  930. Print " Kaufen?"
  931. Print "  (J/N)"
  932. Do 
  933. X$=Inkey$
  934. If X$="j" Then VERB=2 : AUSGABEN=200000 : Goto 110
  935. If X$="n" Then Goto 3310
  936. Loop 
  937. 3500
  938. Paper 8
  939. Pen 3
  940. Wind Open 1,100,50,17,20,16
  941. Border 15,8,3
  942. Print "Verbesserungs"
  943. Print "    Set C    "
  944. Print "-------------"
  945. Print ""
  946. Pen 5
  947. Print "Bestehend"
  948. Print "aus:"
  949. Pen 0
  950. Print "Bessere "
  951. Print "Karosserie,"
  952. Print "Neuartige"
  953. Print "Reifen,"
  954. Print "Neue"
  955. Print "Elektronik"
  956. Pen 5
  957. Print "Kosten:"
  958. Pen 0
  959. Print "300000"
  960. Print ""
  961. Pen 3
  962. Print " Kaufen?"
  963. Print "  (J/N)"
  964. Do 
  965. X$=Inkey$
  966. If X$="j" Then VERB=3 : AUSGABEN=300000 : Goto 110
  967. If X$="n" Then Goto 3510
  968. Loop 
  969. 3510
  970. Wind Close 
  971. Load Iff "IFF/F1_4",0
  972. Return 
  973. 3600
  974. Paper 8
  975. Pen 3
  976. Wind Open 1,100,50,17,20,16
  977. Border 15,8,3
  978. Print "    Set D    "
  979. Print "-------------"
  980. Pen 5
  981. Print "Bestehend aus:"
  982. Pen 0
  983. Print "Bessere "
  984. Print "Karosserie,"
  985. Print "Neuartige"
  986. Print "Reifen,"
  987. Print "Neue"
  988. Print "Elektronik,"
  989. Print "Neuer"
  990. Print "Spoiler"
  991. Pen 5
  992. Print "Kosten:"
  993. Pen 0
  994. Print "400000"
  995. Print ""
  996. Pen 3
  997. Print " Kaufen?"
  998. Print "  (J/N)"
  999. Do 
  1000. X$=Inkey$
  1001. If X$="j" Then VERB=4 : AUSGABEN=400000 : Goto 110
  1002. If X$="n" Then Goto 3610
  1003. Loop 
  1004. 3610
  1005. Wind Close 
  1006. Load Iff "IFF/F1_4",0
  1007. Return 
  1008. 3700
  1009. Paper 8
  1010. Pen 3
  1011. Wind Open 1,100,50,17,20,16
  1012. Border 15,8,3
  1013. Print "    Set E    "
  1014. Print "-------------"
  1015. Pen 5
  1016. Print "Bestehend aus:"
  1017. Pen 0
  1018. Print "Bessere "
  1019. Print "Karosserie,"
  1020. Print "Reifen,"
  1021. Print "Elektronik,"
  1022. Print "Neuer"
  1023. Print "Spoiler"
  1024. Print "Verbessertes"
  1025. Print "Getriebe"
  1026. Pen 5
  1027. Print "Kosten:"
  1028. Pen 0
  1029. Print "500000"
  1030. Print ""
  1031. Pen 3
  1032. Print " Kaufen?"
  1033. Print "  (J/N)"
  1034. Do 
  1035. X$=Inkey$
  1036. If X$="j" Then VERB=5 : AUSGABEN=500000 : Goto 110
  1037. If X$="n" Then Goto 3710
  1038. Loop 
  1039. 3710
  1040. Wind Close 
  1041. Load Iff "IFF/F1_4",0
  1042. Return 
  1043. 3800
  1044. Paper 8
  1045. Pen 3
  1046. Wind Open 1,100,50,17,20,16
  1047. Border 15,8,3
  1048. Print "    Set F    "
  1049. Print "-------------"
  1050. Pen 5
  1051. Print "Bestehend aus:"
  1052. Pen 0
  1053. Print "Bessere: "
  1054. Print "Karosserie,"
  1055. Print "Reifen,"
  1056. Print "Elektronik,"
  1057. Print "Spoiler,"
  1058. Print "Getriebe,"
  1059. Print "und neuer"
  1060. Print "Motor"
  1061. Pen 5
  1062. Print "Kosten:"
  1063. Pen 0
  1064. Print "600000"
  1065. Print ""
  1066. Pen 3
  1067. Print " Kaufen?"
  1068. Print "  (J/N)"
  1069. Do 
  1070. X$=Inkey$
  1071. If X$="j" Then VERB=6 : AUSGABEN=600000 : Goto 110
  1072. If X$="n" Then Goto 3810
  1073. Loop 
  1074. 3810
  1075. Wind Close 
  1076. Load Iff "IFF/F1_4",0
  1077. Return 
  1078. 4000
  1079. V=Rnd(3)
  1080. If V=2 Then Goto 5000
  1081. If V=0 Then Goto 5000
  1082. A=Rnd(10)
  1083. If A=1 Then 4100
  1084. If A=2 Then 4200
  1085. If A=3 Then 4300
  1086. If A=4 Then 4400
  1087. If A=5 Then 4500
  1088. If A=6 Then 4600
  1089. If A=7 Then 4700
  1090. If A=8 Then 4800
  1091. If A=9 Then 4900
  1092. If A=10 Then 4950
  1093. Goto 5000
  1094. 4100
  1095. Load Iff "IFF/F1_6"
  1096. Writing 0
  1097. Paper 0
  1098. Locate 2,7 : Print "Gratulation, du wurdest von   "
  1099. Locate 2,8 : Print "einem neuen Sponsor unter     "
  1100. Locate 2,9 : Print "Vertrag genommen.             "
  1101. Locate 2,10 : Print "Du bekommst daf�r 100.000 DM! "
  1102. Wait Key 
  1103. VERM�GEN=VERM�GEN+100000
  1104. Goto 5000
  1105. 4200
  1106. Load Iff "IFF/F1_6"
  1107. Writing 0
  1108. Paper 0
  1109. Locate 2,7 : Print "Gratulation, du machst bei einem    "
  1110. Locate 2,8 : Print "Fehrnsehinterview mit, und bekommst "
  1111. Locate 2,9 : Print "daf�r 5.000 DM                      "
  1112. Wait Key 
  1113. VERM�GEN=VERM�GEN+5000
  1114. Goto 5000
  1115. 4300
  1116. Load Iff "IFF/F1_6"
  1117. Writing 0
  1118. Paper 0
  1119. Locate 2,7 : Print "Benzinpreiserh�hung! Du machst"
  1120. Locate 2,8 : Print "Einbussen von 5000 DM         "
  1121. Wait Key 
  1122. VERM�GEN=VERM�GEN-5000
  1123. Goto 5000
  1124. 4400
  1125. Load Iff "IFF/F1_6"
  1126. Writing 0
  1127. Paper 0
  1128. Locate 2,7 : Print "Reifenpreise steigen! Du machst"
  1129. Locate 2,8 : Print "einbu�en von 5000 DM           "
  1130. VERM�GEN=VERM�GEN-5000
  1131. Wait Key 
  1132. Goto 5000
  1133. 4500
  1134. Load Iff "IFF/F1_6"
  1135. Writing 0
  1136. Paper 0
  1137. Locate 2,7 : Print "Du verlierst einen Sponsor!   "
  1138. Locate 2,8 : Print "Das bedeutet f�r dich einbu�en"
  1139. Locate 2,9 : Print "von 100.000 DM!               "
  1140. VERM�GEN=VERM�GEN-100000
  1141. Wait Key 
  1142. Goto 5000
  1143. 4600
  1144. Load Iff "IFF/F1_6"
  1145. Writing 0
  1146. Paper 0
  1147. Locate 2,7 : Print "Einer deiner Mechaniker hat           "
  1148. Locate 2,8 : Print "einen brandneuen, und Superschnellen  "
  1149. Locate 2,9 : Print "Motor erfunden! Da du den alten Motor "
  1150. Locate 2,10 : Print "jetzt verkaufen kannst bekommst du    "
  1151. Locate 2,11 : Print "150.000 DM daf�r!                     "
  1152. VERB=VERB+2
  1153. VERM�GEN=VERM�GEN+150000
  1154. Wait Key 
  1155. Goto 5000
  1156. 4700
  1157. Load Iff "IFF/F1_6"
  1158. Writing 0
  1159. Paper 0
  1160. Locate 2,7 : Print "Du hast bei einer Wette mitgemacht,"
  1161. Locate 2,8 : Print "und hast 50.000 DM gewonnen!"
  1162. Locate 2,9 : Print "Gratulation!"
  1163. VERM�GEN=VERM�GEN+50000
  1164. Wait Key 
  1165. Goto 5000
  1166. 4800
  1167. Load Iff "IFF/F1_6"
  1168. Writing 0
  1169. Paper 0
  1170. Locate 2,7 : Print "Eine Software Firma m�chte ï¿½ber"
  1171.              Print "  ï¿½ber deinen Rennstall ein Spiel"
  1172.              Print "  produzieren. Du bekommst"
  1173.              Print "  100.000 f�r das Copyright."
  1174. Wait Key 
  1175. VERM�GEN=VERM�GEN+100000
  1176. Goto 5000
  1177. 4900
  1178. Load Iff "IFF/F1_6"
  1179. Writing 0
  1180. Paper 0
  1181. Locate 2,7 : Print "Einer deiner Mechaniker erfindet"
  1182.              Print "  einen neuen Kraftstoff, der"
  1183.              Print "  billiger und besser ist als dein"
  1184.              Print "  Alter.Das bedeuted f�r dich Ein-"
  1185.              Print "  sparungen von 100.000 DM"
  1186. VERM�GEN=VERM�GEN+100000
  1187. Wait Key 
  1188. Goto 5000
  1189. 4950
  1190. Load Iff "IFF/F1_6"
  1191. Writing 0
  1192. Paper 0
  1193. Locate 2,7 : Print "�ber deinen Rennstall soll eine"
  1194.              Print "  Dokumentation gedreht werden."
  1195.              Print "  Du bekommst daf�r 150.000 DM!"
  1196.              Print "  Gratulation!"
  1197. Wait Key 
  1198. VERM�GEN=VERM�GEN+150000
  1199. 5000
  1200. Load Iff "IFF/F1_5"
  1201. ZIEL=AUTO+FAHRER+TEAM+VERB : If ZIEL=24 Then Run "END.AMOS"
  1202. RENNEN=RENNEN+1
  1203. If RENNEN=17 Then RENNEN=1 : JAHR=JAHR+1
  1204. ZUS=RISIKO+REPERATUREN
  1205. If ZUS<3 Then Goto 5005
  1206. If ZUS=3 Then ZUSA=1 : RISK=1
  1207. If ZUS=4 Then ZUSA=1 : RISK=1
  1208. If ZUS=5 or 6 Then ZUSA=4 : RISK=2
  1209. If ZUS=7 or 8 Then ZUSA=5 : RISK=3
  1210. RA=Rnd(3)
  1211. RISI=RISK*RA
  1212. If RISI>8 Then AUSSCH=Rnd(3) : If AUSSCH=3 Then Goto 5200 Else Goto 5250
  1213. 5005
  1214. GESAMT=FAHRER+AUTO+TEAM+VERB+ZUSA
  1215. 5010
  1216. V=Rnd(4)
  1217. If V=0 Then Goto 5010
  1218. E=GESAMT*V
  1219. If E>21 Then P=1 : VERM�GEN=VERM�GEN+15000 : Goto 5100
  1220. If E>17 Then P=2 : VERM�GEN=VERM�GEN+10000 : Goto 5100
  1221. If E>13 Then P=3 : VERM�GEN=VERM�GEN+5000 : Goto 5100
  1222. If E>9 Then P=4 : VERM�GEN=VERM�GEN+2000 : Goto 5100
  1223. P=5
  1224. VERM�GEN=VERM�GEN-10000
  1225. 5100
  1226. Writing 0
  1227. Paper 0
  1228. Locate 15,7 : Print "Guten Abend, ich"
  1229. Locate 15,8 : Print "begr��e Sie bei "
  1230. Locate 15,9 : Print "der Sportschau. "
  1231. Locate 15,10 : Print "Soeben ist das  "
  1232. Locate 15,11 : Print RENNEN;" Rennen in di-"
  1233. Locate 15,12 : Print "sem Jahr zuende "
  1234. Locate 15,13 : Print "gegangen. Hier  "
  1235. Locate 15,14 : Print "sind die Er-    "
  1236. Locate 15,15 : Print "gebnisse:       "
  1237. Locate 15,16 : Print "                "
  1238. Locate 15,16 : Print TEAMA$
  1239. Locate 15,17 : Print "Belegte den     "
  1240. Wait Key 
  1241. Locate 15,7 : Print "                " : Locate 15,8 : Print "                " : Locate 15,9 : Print "                " : Locate 15,10 : Print "                " : Locate 15,11 : Print "                 "
  1242. Locate 15,12 : Print "                " : Locate 15,13 : Print "                " : Locate 15,14 : Print "                " : Locate 15,15 : Print "                " : Locate 15,16 : Print "                " : Locate 16,17 : Print "                "
  1243. Locate 15,7 : Print P;". Platz." : Locate 15,8 : Print " Damit hat   " : Locate 15,9 : Print " ";NAMEA$;" ein" : Locate 15,10 : Print " Verm�gen von " : Locate 15,11 : Print VERM�GEN;" DM." : Locate 15,17 : Print "       "
  1244. Wait Key : Goto 110
  1245. 5200
  1246. Paper 0
  1247. Writing 0
  1248. Locate 15,7 : Print "Guten Abend, ich"
  1249. Locate 15,8 : Print "begr��e Sie bei"
  1250. Locate 15,9 : Print "der Sportschau."
  1251. Locate 15,10 : Print "Soeben ist das"
  1252. Locate 15,11 : Print RENNEN;" Rennen in "
  1253. Locate 15,12 : Print "diesem Jahr"
  1254. Locate 15,13 : Print "zuende gegangen."
  1255. Locate 15,14 : Print TEAMA$
  1256. Locate 15,15 : Print "schied leider aus."
  1257. Locate 15,16 : Print "Das Auto wurde bei"
  1258. Locate 15,17 : Print "bei einem Crash"
  1259. Locate 15,18 : Print "zerst�rt."
  1260. AUTO=0
  1261. Wait Key 
  1262. Goto 110
  1263. 5250
  1264. Paper 0
  1265. Writing 0
  1266. Locate 15,7 : Print "Guten Abend, ich"
  1267. Locate 15,8 : Print "begr��e Sie bei"
  1268. Locate 15,9 : Print "der Sportschau."
  1269. Locate 15,10 : Print "Soeben ist das"
  1270. Locate 15,11 : Print RENNEN;" Rennen in"
  1271. Locate 15,12 : Print "diesem Jahr"
  1272. Locate 15,13 : Print "zuende gegangen."
  1273. Locate 15,14 : Print TEAMA$;""
  1274. Locate 15,15 : Print "schied leider"
  1275. Locate 15,16 : Print "wegen einem Crash"
  1276. Locate 15,17 : Print "aus. Die "
  1277. Locate 15,18 : Print "Reperaturkosten"
  1278. VERM�GEN=VERM�GEN-50000
  1279. Wait Key 
  1280. Locate 15,7 : Print "des Autos       "
  1281. Locate 15,8 : Print "betragen        "
  1282. Locate 15,9 : Print "50.000 DM      "
  1283. Locate 15,10 : Print "                 "
  1284. Locate 15,11 : Print "                 "
  1285. Locate 15,12 : Print "                 "
  1286. Locate 15,13 : Print "                 "
  1287. Locate 15,14 : Print "                 "
  1288. Locate 15,15 : Print "                 "
  1289. Locate 15,16 : Print "                 "
  1290. Locate 15,17 : Print "                 "
  1291. Locate 15,18 : Print "                 "
  1292. Wait Key 
  1293. Goto 110
  1294. 6000
  1295. Load Iff "IFF/F1_7"
  1296. Writing 1
  1297. Paper 0
  1298. Locate 5,10 : Print "Mit wem m�chten Sie verhandeln?   " : Locate 5,11 : Print "----------------------------------" : Pen 1
  1299. Locate 5,15 : Print "      A =  Fahrer                 "
  1300. Locate 5,17 : Print "      B =  Mechanikerteam         "
  1301. Locate 5,19 : Print "      C =  Abbruch                " : Pen 4
  1302. Locate 5,22 : Print "--------------------------------- " : Locate 5,23 : Print "Bitte entsprechende Taste dr�cken." : Locate 5,24 : Print "----------------------------------"
  1303. Do 
  1304. A$=Inkey$
  1305. If A$="a" Then Goto 6100
  1306. If A$="b" Then Goto 6200
  1307. If A$="c" Then Goto 110
  1308. Loop 
  1309. 6100
  1310. Load Iff "IFF/F1_7"
  1311. Writing 0
  1312. 6110
  1313. If RISIKO=1 Then Pen 1 : Locate 5,15 : Print "  * * *" : Pen 4 : Locate 5,15 : Print "*"
  1314. If RISIKO=2 Then Pen 1 : Locate 5,15 : Print "    * *" : Pen 4 : Locate 5,15 : Print "* *"
  1315. If RISIKO=3 Then Pen 1 : Locate 5,15 : Print "      *" : Pen 4 : Locate 5,15 : Print "* * *"
  1316. If RISIKO=4 Then Pen 4 : Locate 5,15 : Print "* * * *"
  1317. Pen 1
  1318. Locate 5,17 : Print "Risikobetrag: ";RISIKO : Locate 5,10 : Print "Bitte Risikobetrag der" : Locate 5,11 : Print "Fahrman�ver bestimmen." : Locate 5,20 : Print "Bitte nur 1-4 eingeben." : Locate 5,21 : Print "Bitte a f�r OK eingeben."
  1319. Do 
  1320. Locate 5,22 : Input A$
  1321. Locate 5,22 : Print "                                     "
  1322. If A$="1" Then RISIKO=1 : Goto 6110
  1323. If A$="2" Then RISIKO=2 : Goto 6110
  1324. If A$="3" Then RISIKO=3 : Goto 6110
  1325. If A$="4" Then RISIKO=4 : Goto 6110
  1326. If A$="a" Then Goto 6000
  1327. Loop 
  1328. 6200
  1329. Load Iff "IFF/F1_7"
  1330. 6210
  1331. Writing 0
  1332. If REPERATUREN=1 Then Pen 1 : Locate 5,15 : Print "  * * *" : Pen 4 : Locate 5,15 : Print "*"
  1333. If REPERATUREN=2 Then Pen 1 : Locate 5,15 : Print "    * *" : Pen 4 : Locate 5,15 : Print "* *"
  1334. If REPERATUREN=3 Then Pen 1 : Locate 5,15 : Print "      *" : Pen 4 : Locate 5,15 : Print "* * *"
  1335. If REPERATUREN=4 Then Pen 4 : Locate 5,15 : Print "* * * *"
  1336. Pen 1
  1337. Locate 5,17 : Print "Risikobetrag: ";REPERATUREN
  1338. Locate 5,10 : Print "Bitte Risikobetrag der"
  1339. Locate 5,11 : Print "Reperaturen eingeben"
  1340. Locate 5,20 : Print "Bitte nur 1-4 eingeben."
  1341. Locate 5,20 : Print "Bitte a f�r OK eingeben."
  1342. Do 
  1343. Locate 5,21 : Input A$
  1344. Locate 5,21 : Print "                                    "
  1345. If A$="1" Then REPERATUREN=1 : Goto 6210
  1346. If A$="2" Then REPERATUREN=2 : Goto 6210
  1347. If A$="3" Then REPERATUREN=3 : Goto 6210
  1348. If A$="4" Then REPERATUREN=4 : Goto 6210
  1349. If A$="a" Then Goto 6000
  1350. Loop